home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / sviluppo / svilupp2 / hunk.lha / Hunk / PrintReloc.rexx < prev   
OS/2 REXX Batch file  |  1996-12-08  |  603b  |  27 lines
  1. /*  Print the complete relocation table with "Hunk". © 1996 THOR */
  2.  
  3. IF OPEN(Printer, 'PRT:', 'W') THEN DO
  4.    CALL WRITELN(Printer, 'List of reloc entries')
  5.    CALL WRITELN(Printer, '')
  6.    EDITHUNK
  7.    DELOCATE
  8.    EDITRELOC 0
  9.    RELOC 'CNT'
  10.    SAY CNT.COUNT 'reloc entries'
  11.    LAST=0
  12.    X=0
  13.    EDITENTRY 0
  14.    DO i=0 TO CNT.COUNT-1
  15.       ENTRY 0 0 i 'HERE'
  16.       CALL WRITECH(Printer,INSERT('0x' || D2X(HERE.OFFSET),'',1,8,' ') INSERT('>0x' || D2X(HERE.OFFSET-LAST),'',1,7,' '))
  17.       X=X+1
  18.       IF X=4 THEN DO
  19.          X=0
  20.          CALL WRITELN(Printer,'')
  21.       END
  22.       LAST=HERE.OFFSET
  23.    END
  24. END
  25.  
  26.  
  27.